home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Input.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-16  |  2.5 KB  |  115 lines
  1. Unit Input;
  2.  
  3. Interface
  4. Uses Timer, Exec;
  5.  
  6. Type
  7.   pInputEvent = ^tInputEvent;
  8.   tInputEvent = Record
  9.           ie_NextEvent: pInputEvent;
  10.           ie_Class: ShortInt;
  11.           ie_SubClass: ShortInt;
  12.           ie_Code: Integer;
  13.           ie_Qualifier: Integer;
  14.         Case Integer of
  15.         0: (
  16.           ie_xy: Record
  17.           ie_x: Integer;
  18.           ie_y: Integer;
  19.           End;
  20.         );
  21.         1: (
  22.           ie_addr: Pointer;
  23.           ie_TimeStamp: ttimeval;
  24.         );
  25.         End;
  26.  
  27.  
  28.  
  29. Const
  30.   IECODE_REQCLEAR = $0;
  31.   IEQUALIFIER_LALT = $10;
  32.   IECLASS_DISKINSERTED = $10;
  33.   IND_SETTHRESH = $C;
  34.   IECLASS_REQUESTER = $9;
  35.   IECODE_KEY_CODE_FIRST = $0;
  36.   IEQUALIFIERB_NUMERICPAD = $8;
  37.   IEQUALIFIER_RALT = $20;
  38.   IEQUALIFIERB_CONTROL = $3;
  39.   IECODE_C0_FIRST = $0;
  40.   IEQUALIFIERB_MULTIBROADCAST = $B;
  41.   IECLASS_ACTIVEWINDOW = $11;
  42.   IECODE_C1_FIRST = $80;
  43.   IEQUALIFIER_INTERRUPT = $400;
  44.   IEQUALIFIERB_REPEAT = $9;
  45.   IND_ADDHANDLER = $9;
  46.   IECLASS_NULL = $0;
  47.   IECLASS_NEWPREFS = $E;
  48.   IECODE_LATIN1_FIRST = $A0;
  49.   IECODE_KEY_CODE_LAST = $77;
  50.   IEQUALIFIERB_RBUTTON = $D;
  51.   IEQUALIFIERB_LSHIFT = $0;
  52.   IECLASS_MENULIST = $A;
  53.   IECLASS_RAWMOUSE = $2;
  54.   IECLASS_DISKREMOVED = $F;
  55.   IEQUALIFIERB_RSHIFT = $1;
  56.   IND_SETMTRIG = $10;
  57.   IECODE_C0_LAST = $1F;
  58.   IECODE_C1_LAST = $9F;
  59.   IECODE_UP_PREFIX = $80;
  60.   IECLASS_MAX = $12;
  61.   IECODE_LATIN1_LAST = $FF;
  62.   IEQUALIFIERB_LEFTBUTTON = $E;
  63.   IECLASS_GADGETDOWN = $7;
  64.   IEQUALIFIER_NUMERICPAD = $100;
  65.   IND_SETMTYPE = $F;
  66.   IND_REMHANDLER = $A;
  67.   IECODE_NOBUTTON = $FF;
  68.   IEQUALIFIER_CONTROL = $8;
  69.   IND_SETMPORT = $E;
  70.   IECLASS_CLOSEWINDOW = $B;
  71.   IEQUALIFIER_MULTIBROADCAST = $800;
  72.   IEQUALIFIER_REPEAT = $200;
  73.   IEQUALIFIERB_LCOMMAND = $6;
  74.   IEQUALIFIERB_CAPSLOCK = $2;
  75.   IECODE_ASCII_FIRST = $20;
  76.   IEQUALIFIER_RBUTTON = $2000;
  77.   IEQUALIFIERB_RCOMMAND = $7;
  78.   IEQUALIFIERB_MIDBUTTON = $C;
  79.   IEQUALIFIERB_RELATIVEMOUSE = $F;
  80.   IEQUALIFIER_LSHIFT = $1;
  81.   IECLASS_INACTIVEWINDOW = $12;
  82.   IECODE_LBUTTON = $68;
  83.   IEQUALIFIER_RSHIFT = $2;
  84.   IECODE_MBUTTON = $6A;
  85.   IEQUALIFIERB_LALT = $4;
  86.   IECLASS_RAWKEY = $1;
  87.   IECODE_RBUTTON = $69;
  88.   IECODE_COMM_CODE_FIRST = $78;
  89.   IEQUALIFIER_LEFTBUTTON = $4000;
  90.   IECODE_ASCII_LAST = $7E;
  91.   IEQUALIFIERB_RALT = $5;
  92.   IECODE_ASCII_DEL = $7F;
  93.   IEQUALIFIERB_INTERRUPT = $A;
  94.   IECODE_REQSET = $1;
  95.   IEQUALIFIER_LCOMMAND = $40;
  96.   IND_WRITEEVENT = $B;
  97.   IECLASS_POINTERPOS = $4;
  98.   IECLASS_SIZEWINDOW = $C;
  99.   IECODE_COMM_CODE_LAST = $7F;
  100.   IECLASS_TIMER = $6;
  101.   IECODE_NEWACTIVE = $1;
  102.   IECLASS_EVENT = $3;
  103.   IEQUALIFIER_CAPSLOCK = $4;
  104.   IEQUALIFIER_RCOMMAND = $80;
  105.   IEQUALIFIER_MIDBUTTON = $1000;
  106.   IEQUALIFIER_RELATIVEMOUSE = $8000;
  107.   IND_SETPERIOD = $D;
  108.   IECLASS_GADGETUP = $8;
  109.   IECLASS_REFRESHWINDOW = $D;
  110.  
  111.  
  112.  
  113.  
  114. End.
  115.